Roboty/ROBOTS_CD.iso/CD/assembly.dxr/Internal_20_more Info.ls

Text File | 2005-05-13 | 642 b | 35 lines

property spriteNum, myOffset
global robotConstruction, sliderPos, gpopUp

on beginSprite me
  myOffset = sprite(7).bottom - sprite(spriteNum).loc[2]
end

on follow me
  newLoc = point(sprite(spriteNum).loc[1], sprite(7).loc[2] + sprite(7).height - myOffset)
  sprite(spriteNum).loc = newLoc
end

on mouseWithin me
  cursor(280)
end

on NewBrief me
  sprite(spriteNum).visible = 0
end

on briefLoaded me
  sprite(spriteNum).visible = 1
end

on mouseLeave me
  cursor(0)
end

on mouseUp me
  if (gpopUp = 0) and (robotConstruction[sliderPos] <> EMPTY) then
    cursor(0)
    sendAllSprites(#popup, 2, robotConstruction[sliderPos])
  end if
end